Top 10k strings from HiSoft Pascal 4T v1.7M (1984)(HiSoft)[a].tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
4 SPOUT(CHR(20));SPOUT(CHR( PENSTATUS));SPOUT(CHR(21) );SPOUT(CHR(PENSTATUS));
2 YCOR:=NEWY
2 XCOR:=NEWX;
2 XCOR,YCOR,HEADING:REAL;
2 WRITE('Out of limits');
2 TURTLE
2 SPOUT(CHR(17));SPOUT(CHR( 8));
2 SPOUT(CHR(16));SPOUT(CHR( C))
2 SETXY(127,87);
2 PLOT(ROUND(XCOR),ROUND (YCOR));
2 PENSTATUS:INTEGER;
2 PENSTATUS:=1
2 PENSTATUS:=0;
2 PENDOWN(6)
2 NEWY:=YCOR+L*SIN(HEADING* 3.1415926/180);
2 NEWX:=XCOR+L*COS(HEADING* 3.1415926/180);
2 LINE1(ABS(X),ABS(Y),SGNX, SGNY)
2 LINE(TRUE,ROUND(NEWX) -ROUND(XCOR),ROUND(NEWY)- ROUND(YCOR));
2 INLINE(1,0,3,#21,0,#58, #DD,#7E,2,7,7,7,#5F,#7E, #E6,#C7,#B3,#77,#23,#0B,
2 INLINE(#FD,#21,#3A,#5C,#DD,#7E,2,#D7)
2 INLINE(#FD,#21,#3A,#5C, #DD,#56,2,#DD,#5E,4,#DD, #46,6,#DD,#4E,8,#CD,
2 INLINE(#FD,#21,#3A,#5C, #DD,#46,2,#DD,#4E,4,#CD, #E5,#22)
2 INLINE(#FD,#21,#3A,#5C,
2 HiSoft Pascal Compiler
2 HEADING:=HEADING+A;
2 HEADING:=A
2 FWD(R); TURN(1)
2 CHECK(X,Y);
2 CHECK(ROUND(X+XCOR), ROUND(Y+YCOR));
2 #FD,#CB,#01,#CE,
2 #CD,#AC,#0E,#FD,
2 #CB,#01,#8E,#F3)
2 #78,#B1,#20,#EE);
2 for the ZX Spectrum
2 VECTOR(A,L:REAL);
2 TURN(A:REAL);
2 SPOUT(C:CHAR);
2 SGNY:=-1
2 SGNX:=-1
2 SGNX,SGNY:INTEGER;
2 SETXY(X,Y:REAL);
2 SETHD(A:REAL);
2 RIGHT(A:REAL);
2 PLOT(X,Y:INTEGER);
2 PENDOWN(C:INTEGER);
2 PAPER(C:INTEGER);
2 NEWX,NEWY:REAL;
2 LINE1(X,Y,SX,SY:INTEGER);
2 LINE(ON:BOOLEAN;X,Y:INTEGER);
2 LEFT(A:REAL);
2 INK(C:INTEGER);
2 I:INTEGER;
2 FWD(L:REAL);
2 CHECK(X,Y:INTEGER);
2 BACK(L:REAL);
2 ARCR(R:REAL; A:INTEGER);
2 (Y>175)
1 hploader V
1 hp1.7
1 Would you like 51 columns?
1 Top of RAM?
1 Top of RAM for 'T'ranslate?
1 Tape Error
1 System Call Error
1 Symbol Table Size?
1 Side B : Turtle Graphics
1 Side A : Pascal Compiler
1 QPerfect TZX sampled from the original cassette by Church of the Latter-Day Speccy0
1 Pascal vsn 1.7M
1 Pascal Compiler
1 Out of RAM
1 Number too large
1 Number expected
1 No more text
1 No Table Space
1 Maths Call Error
1 K"K%K)K,K1K4K
1 J!J-J8JJJYJhJzJ
1 Index too Low
1 Index too High
1 I'I)I2I5I@ICILIOIXI[IdIgIpIsIzI|I
1 HiSoft Pascal 1.7M 3 Feb 87
1 Halt at PC=
1 H$H'H,H/H2H5H;H@HFHIHLHOHRHXH[H^HaHoHtH
1 G&G8G=GBGFGKGNGRGWGbGeGjGqGvGyG
1 File not found
1 F#N#^#~#fo
1 F F-F0F4F<FBFMFPFTFWFZF]F`FcFlFvF{F
1 Exponent expected
1 E;EHEMEPESEXE]EbEeEmErEwE~E
1 D$D'D+D2D=DEDLDTD[DbDfDiDvD
1 Copyright HiSoft 1983,84,87
1 C!C*CMCQCqCvC
1 C H K N Q T W [ h y
1 B"B,B>BOBRB_BeBvB
1 All rights reserved
1 A!A$A'A*A2AKARAYA\A`AjAmAtAwA{A
1 @"@-@0@;@@@C@F@I@M@Q@U@Y@]@a@f@n@q@u@y@
1 ?!?%?,?/?2?8?<?F?J?P?S?V?Y?`?i?q?w?z?~?
1 > >$>'>*>->0>3>:>=>D>H>O>R>V>Y>a>i>q>v>y>|>
1 <;=@=D=G=J=N=R=V=]=b=n=w={=~=
1 <'<+<0<=<I<M<Q<W<Z<e<h<k<o<s<x<
1 ;';*;7;N;T;Y;\;`;k;n;v;{;
1 ;" HiSoft Pascal 1.7M Loading":
1 :!:$:):?:B:G:M:P:U:X:[:^:a:d:g:j:
1 9 9#9&9)9-9093989<9C9j9n9r9{9
1 8 828:8>8S8a8e8h8k8
1 7#7&7+70777:7?7M7P7S7V7Y7_7c7h7k7{7~7
1 6165686<6?6F6M6R6Y6f6i6l6o6
1 5 5$5)5/52575:5=5S5Y5^5a5f5i5n5s5|5
1 4,+,=,M,_,s,4,+,G,X,l,
1 4 4#4&4)4.454<4A4H4M4P4W4]4`4e4h4k4n4s4v4{4~4
1 3$3)3,33363=3B3H3K3N3S3V3Z3]3`3g3l3p3s3v3{3~3
1 2 2#2+21282;2>2B2I2L2Q2X2\2`2d2h2m2q2v2~2
1 1!1&1*1-1013191?1D1H1N1Q1U1c1i1l1s1w1z1}1
1 0!0%0)0,0/060C0F0L0T0Y0`0c0f0i0l0s0
1 /"/0/3/;/X/i/n/q/x/
1 .".'.0.5.:.B.E.I.L.R.V.Z.f.l.p.t.y.}.
1 -.-9-<-?-D-G-J-Q-T-W-\-_-b-e-g-i-k-m-o-q-s-u-w-y-{-}-
1 *"+2+@+C+P+W+Z+]+c+h+s+v+~+
1 *"*.*=*E*J*N*R*U*g*y*
1 (R)Y)\)_)b)y)
1 (End Address:
1 (#(((-(2(8(>(D(J(P(V(\(b(i(p(w(~(
1 '-'9'A'D'H'K'P'U'Z'`'i'q'x'|'
1 &$&9&<&?&B&E&N&Y&\&j&u&z&
1 %(%6%>%A%F%R%Y%`%g%j%q%x%{%
1 $#N#F#^#V#
1 $ $#$*$-$0$5$8$;$>$A$G$R$V$Z$c$j$o$v$y$|$
1 #s#r###s#r
1 #q#p#:" w<2" #
1 #%#(#+#C#N#S#\#l#t#w#
1 " "'"/"2"7"<"?"G"W"Z"]"c"f"k"n"r"u"
1 !!!%!)!/!5!8!
1 Sy=(<={ /